Workflow
- Get the data
library(haven)
package ‘haven’ was built under R version 4.0.3
cars <- read_sas("http://www.principlesofeconometrics.com/sas/cars.sas7bdat",
NULL)
library(tidyverse)
library(plotly)
plot <- cars %>%
filter(MPG >= 28L & MPG <= 47L) %>%
ggplot() +
aes(x = MPG, y = ENG) +
geom_point(size = 1L, colour = "#0c4c8a") +
theme_minimal()
ggplotly(plot)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayAtIE5ldyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKV29ya2Zsb3cKCjEuIEdldCB0aGUgZGF0YQoKYGBge3J9CmxpYnJhcnkoaGF2ZW4pCmNhcnMgPC0gcmVhZF9zYXMoImh0dHA6Ly93d3cucHJpbmNpcGxlc29mZWNvbm9tZXRyaWNzLmNvbS9zYXMvY2Fycy5zYXM3YmRhdCIsIAogICAgTlVMTCkKYGBgCgoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHBsb3RseSkKCnBsb3QgPC0gY2FycyAlPiUKIGZpbHRlcihNUEcgPj0gMjhMICYgTVBHIDw9IDQ3TCkgJT4lCiBnZ3Bsb3QoKSArCiBhZXMoeCA9IE1QRywgeSA9IEVORykgKwogZ2VvbV9wb2ludChzaXplID0gMUwsIGNvbG91ciA9ICIjMGM0YzhhIikgKwogdGhlbWVfbWluaW1hbCgpCgpnZ3Bsb3RseShwbG90KQpgYGAK